home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1984 November
/
64er_Magazin_84-11_1984_Markt__Technik_de.d64
/
turtle demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
165 lines
0 rem t u r t l e d e m o
1 rem by peter menke
2 :
3 (NULL) 1,0,0:(NULL)15:(NULL)
4 :
10 rem roboter-kopf
20 (NULL) 120,160
30 (NULL) 2:(NULL) 10
40 (NULL) 0:(NULL) 30
50 (NULL) 2:(NULL) 10
55 (NULL) 4:(NULL) 40
60 (NULL) 2:(NULL) 100
65 (NULL) 0:(NULL) 100
70 (NULL) 6:(NULL) 100
90 (NULL) 4:(NULL) 40
100 (NULL) 6:(NULL) 10
110 (NULL) 0:(NULL) 30
120 (NULL) 6:(NULL) 10
121 :
122 rem linkes ohr
130 (NULL) 110,105
140 (NULL) 4:(NULL) 15
150 (NULL) 2:(NULL) 30
160 (NULL) 0:(NULL) 15
161 :
162 rem rechtes ohr
170 (NULL) 210,105
180 (NULL) 0:(NULL) 15
190 (NULL) 2:(NULL) 30
200 (NULL) 4:(NULL) 15
201 :
202 rem mund
210 (NULL) 130,120
220 (NULL) 6:(NULL) 10
230 (NULL) 0:(NULL) 60
240 (NULL) 2:(NULL) 10
241 :
242 rem nase
250 (NULL) 152,100
260 (NULL) 0:(NULL) 16
270 (NULL) 3:(NULL) 8
280 (NULL) 4:(NULL) 1
290 (NULL) 5:(NULL) 8
291 :
292 rem linkes auge
293 (NULL) 130,60:(NULL) 0
295 fort=1to4
300 (NULL) 15
310 (NULL)2
320 next
330 :
340 rem rechtes auge
350 (NULL) 190,60:(NULL) 6
360 fort=1to4
370 (NULL) 15
380 (NULL) 2
390 next
400 :
410 (NULL) 1:print"[147][135] t u r t l e d e m o"
420 print" by peter menke"
430 fori=0to4000:next
440 (NULL) 0
450 :
460 :
461 rem spirale
470 (NULL) 1,2,2:(NULL) 0:(NULL):(NULL) 160,100
480 fori=1to66
490 (NULL) 1
500 (NULL) i
510 next
511 fori=1to1000:next
520 :
530 :
540 rem viereck-spiralen
541 (NULL):(NULL)1
550 (NULL) 1,2,2:fori=1to200step2
560 (NULL) 2:(NULL) i:next
561 (NULL) 160,100
570 fori=1to195step2
580 (NULL) 2:(NULL) i:next
590 (NULL) 160,100
600 fori=1to195
610 (NULL) 2:(NULL) i:next
620 :
630 :
640 rem muster
641 (NULL)1,5,5:(NULL):(NULL)0
650 fori=1to45
660 forx=0to7
670 (NULL)x
671 (NULL) i
680 nextx
700 next
710 :
720 (NULL)1,5,5
730 fori=1to45
740 forx=0to7
750 (NULL)x
761 (NULL)i
780 nextx
790 next
800 fori=1to2000:next
810 :
820 :
830 rem pyramiden
840 (NULL)1,6,6:(NULL):(NULL)15
850 fori=1to33
860 forx=0to7
870 (NULL) x
871 (NULL) i
880 nextx
900 next
910 :
930 fori=1to33
940 forx=0to7
950 (NULL) 7-x
961 (NULL) i
980 nextx
990 next
991 fori=1to8:(NULL)
992 forx=1to500:next
993 next
1000 :
1010 :
1011 rem inverses muster
1020 (NULL)7,7:(NULL) 0:(NULL)
1030 fory=1to4:(NULL) 1:(NULL) 2
1040 fori=1to100
1050 (NULL) i
1060 forx=1to7
1070 (NULL) x:(NULL)x:nextx,i,y
1080 :
1090 :
1111 rem strich-muster
1120 (NULL)1,8,8:(NULL) 0:(NULL)
1130 fory=1to4:(NULL) 1:(NULL)2
1140 fori=1to45
1150 (NULL) i
1160 forx=1to10
1170 (NULL) x:(NULL) x:nextx,i,y
1181 :
1182 :
1183 rem joystick zeichnen
1184 (NULL) 1,10,10:(NULL)0:(NULL)
1185 (NULL)1
1186 print"[147][135] joystick-zeichnen (port 2)"
1187 print" weiter mit f7"
1188 (NULL)5
1189 :
1190 :
1191 rem lightpen zeichnen
1192 (NULL) 1,1,1:(NULL)0:(NULL)
1193 (NULL)1
1194 print"[147][135] lightpen-zeichnen (port 1)"
1195 print" weiter mit f7"
1196 (NULL)
1197 :
1198 :
1200 rem zufall
1210 (NULL) 1:(NULL):(NULL) 1,9,9
1220 (NULL) 1
1230 print"[147][135]zufallsmuster
1240 [153]"schluss mit run/stop-taste
1250 (NULL) rnd(1)*8:(NULL) 1:goto1250